home *** CD-ROM | disk | FTP | other *** search
Text File | 1999-03-04 | 390 b | 16 lines | [TEXT/ToyS] |
- on open fsObjs
- -- Get our icon
- repeat with fsObj in fsObjs
- set spic to the image from fsObj
- set fsNew to ((fsObj as text) & "®") as file specification
-
- save clipping spic in fsNew
- set spic to "" -- Dump RAM
-
- set fInfo to basic info for fsObj
- set oldName to catalog name of fInfo
- collate fsObj with the trasher
- collate fsNew renaming it to oldName
- end repeat
- end open
-